home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / claset.z / claset
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAASSSSEEEETTTT((((3333FFFF))))                                                          CCCCLLLLAAAASSSSEEEETTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLASET - initialize a 2-D array A to BETA on the diagonal and ALPHA on
  10.      the offdiagonals
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA )
  14.  
  15.          CHARACTER      UPLO
  16.  
  17.          INTEGER        LDA, M, N
  18.  
  19.          COMPLEX        ALPHA, BETA
  20.  
  21.          COMPLEX        A( LDA, * )
  22.  
  23. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  24.      CLASET initializes a 2-D array A to BETA on the diagonal and ALPHA on the
  25.      offdiagonals.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      UPLO    (input) CHARACTER*1
  30.              Specifies the part of the matrix A to be set.  = 'U':      Upper
  31.              triangular part is set. The lower triangle is unchanged.  = 'L':
  32.              Lower triangular part is set. The upper triangle is unchanged.
  33.              Otherwise:  All of the matrix A is set.
  34.  
  35.      M       (input) INTEGER
  36.              On entry, M specifies the number of rows of A.
  37.  
  38.      N       (input) INTEGER
  39.              On entry, N specifies the number of columns of A.
  40.  
  41.      ALPHA   (input) COMPLEX
  42.              All the offdiagonal array elements are set to ALPHA.
  43.  
  44.      BETA    (input) COMPLEX
  45.              All the diagonal array elements are set to BETA.
  46.  
  47.      A       (input/output) COMPLEX array, dimension (LDA,N)
  48.              On entry, the m by n matrix A.  On exit, A(i,j) = ALPHA, 1 <= i
  49.              <= m, 1 <= j <= n, i.ne.j; A(i,i) = BETA , 1 <= i <= min(m,n)
  50.  
  51.      LDA     (input) INTEGER
  52.              The leading dimension of the array A.  LDA >= max(1,M).
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.